***** Replication code for Franchino, Fabio, and Camilla Mariotto. “Noncompliance Risk, Asymmetric Power and the Design of Enforcement of the European Economic Governance”. European Union Politics.

***** Online Appendix Section 3.4 Re-categorization of governmental positions test: systematic errors
* Execution stage 2
* Figure A4: Re-categorization robustness test (systematic error): coefficient distributions

pause on
use robtest_pos_source_FC.dta, clear

drop b4 b6-b8 b13 b20 b22-b24 b29 b34 b36 b38 b43

rename b1 risk_Com
rename b2 v_power_Com
rename b3 risk_vpower_Com
rename b5 eurozone_Com

rename b9 presidency_Com
rename b10 leftright_Com
rename b11 proantiEU_Com
rename b12 support_Com
rename b14 source_Com
rename b15 measure_Com
rename b16 issue_Com

rename b17 risk_Cou
rename b18 v_power_Cou
rename b19 risk_vpower_Cou

rename b21 eurozone_Cou

rename b25 presidency_Cou
rename b26 leftright_Cou
rename b27 proantiEU_Cou
rename b28 support_Cou

rename b30 source_Cou
rename b31 measure_Cou
rename b32 issue_Cou

rename b33 risk_Nat
rename b35 eurozone_Nat
rename b37 eurocrisis_Nat
rename b39 presidency_Nat

rename b40 leftright_Nat
rename b41 proantiEU_Nat
rename b42 support_Nat
rename b44 source_Nat

rename b45 measure_Nat
rename b46 issue_Nat

rename b47 cut1_Com
rename b48 cut2_Com
rename b49 cut1_Cou
rename b50 cut2_Cou
rename b51 cut1_Nat
rename b52 cut2_Nat
rename b53 act
rename b54 issue_id

tw kdensity risk_Nat, lp(solid) lc(black) || kdensity risk_Cou, lp(longdash) lc(black) || kdensity risk_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Noncompliance Risk", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Risk, replace)

tw kdensity v_power_Cou, lp(longdash) lc(black) || kdensity v_power_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "Council")) legend(lab(2 "Commission")) title("Voting power", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(V_power, replace)

tw kdensity risk_vpower_Cou, lp(longdash) lc(black) || kdensity risk_vpower_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "Council")) legend(lab(2 "Commission")) title("Noncompliance risk * Voting power", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Risk_vpower, replace)

tw kdensity eurozone_Nat, lp(solid) lc(black) || kdensity eurozone_Cou, lp(longdash) lc(black) || kdensity eurozone_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Eurozone", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Eurozone, replace)

tw kdensity eurocrisis_Nat, lp(solid) lc(black)  ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("National", size(2)) ytitle(" ", size(2)) legend(lab(1 "National")) title("Euro crisis", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Eurocrisis, replace)

tw kdensity leftright_Nat, lp(solid) lc(black) || kdensity leftright_Cou, lp(longdash) lc(black) || kdensity leftright_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Left-right position", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Leftright, replace)

tw kdensity proantiEU_Nat, lp(solid) lc(black) || kdensity proantiEU_Cou, lp(longdash) lc(black) || kdensity proantiEU_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Pro-Anti EU position", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(ProantiEU, replace)

tw kdensity presidency_Nat, lp(solid) lc(black) || kdensity presidency_Cou, lp(longdash) lc(black) || kdensity presidency_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Presidency", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Presidency, replace)

tw kdensity support_Nat, lp(solid) lc(black) || kdensity support_Cou, lp(longdash) lc(black) || kdensity support_Com , lp(shortdash) lc(black) ///
graphregion(fcolor(white) ilcolor(white) lcolor(white)) ///
xtitle("", size(2)) legend(lab(1 "National")) legend(lab(2 "Council")) legend(lab(3 "Commission")) title("Diffuse support", size(2)) ///
xlabel(, noticks nogrid labsize(2)) ylabel(, noticks axis(1) nogrid labsize(2)) legend(size(vsmall)) legend(cols(3) region(lwidth(none))) saving(Support, replace)

gr combine Risk.gph V_power.gph Risk_vpower.gph Eurozone.gph Eurocrisis.gph Leftright.gph ProantiEU.gph Presidency.gph Support.gph, saving(figureA4, replace) graphregion(fcolor(white) ilcolor(white) lcolor(white))


